Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/pc/media/dirs/BackUp/code.cst/00004_Script_advance after vid-sound

Text File | 2002-10-15 | 729b | 35 lines

property tsprite,ttime,soundname

on new me
  tsprite=0
  ttime=0
  soundname=""
end

on getpropertydescriptionlist me
  plist=[#tsprite:[#comment:"Video sprite channel",#format:#integer,#default:0],#soundname:[#comment:"Sound file",#default:"",#format:#string]]
  return plist
end

on beginsprite me
  if tsprite<>0 then
    ttime=(sprite(tsprite).member.duration)-2
    sprite(tsprite).movierate=1
  end if
  if soundname<>"" then puppetsound 1,soundname
end

on exitframe me
  if ttime<>0 then
    if sprite(tsprite).movietime>ttime then
      go the frame+1
    end if
  end if
  if soundname<>"" then
    if soundbusy(1)=0 then
      go the frame+1
    end if
  end if
  go the frame
end